inherited frmExtendetRstPayFilter: TfrmExtendetRstPayFilter
  Left = 499
  Top = 332
  VertScrollBar.Range = 0
  BorderStyle = bsDialog
  Caption = #1060#1080#1083#1100#1090#1088' '#1088#1072#1089#1096#1080#1088#1077#1085#1085#1086#1075#1086' '#1087#1086#1080#1089#1082#1072
  ClientHeight = 296
  ClientWidth = 480
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label4: TLabel [0]
    Left = 0
    Top = 76
    Width = 153
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = #1055#1086#1089#1090#1072#1074#1097#1080#1082
  end
  inherited Panel1: TPanel
    Top = 269
    Width = 480
    inherited BitBtn1: TBitBtn
      Left = 177
      Caption = #1055#1088#1080#1084#1077#1085#1080#1090#1100
      ModalResult = 1
    end
    inherited BitBtn2: TBitBtn
      Left = 379
      Caption = #1054#1090#1084#1077#1085#1080#1090#1100
      ModalResult = 2
    end
    object BitBtn3: TBitBtn
      Left = 278
      Top = 1
      Width = 97
      Height = 25
      Action = aClear
      Anchors = [akTop, akRight]
      Caption = #1054#1095#1080#1089#1090#1080#1090#1100
      TabOrder = 2
    end
  end
  inherited ToolBar1: TToolBar
    Width = 480
    Height = 0
    Enabled = False
    inherited ToolButton1: TToolButton
      Enabled = False
    end
    inherited ToolButton2: TToolButton
      Enabled = False
    end
    inherited ToolButton3: TToolButton
      Enabled = False
    end
    inherited ToolButton4: TToolButton
      Enabled = False
    end
  end
  object Panel2: TPanel [3]
    Left = 0
    Top = 0
    Width = 480
    Height = 269
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object Label2: TLabel
      Left = 3
      Top = 16
      Width = 183
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1046#1080#1083#1080#1097#1085#1072#1103' '#1086#1088#1075#1072#1085#1080#1079#1072#1094#1080#1103
    end
    object Label1: TLabel
      Left = 3
      Top = 37
      Width = 183
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1055#1086#1089#1090#1072#1074#1097#1080#1082
    end
    object Label3: TLabel
      Left = 3
      Top = 184
      Width = 183
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1057#1086#1079#1076#1072#1090#1077#1083#1100' '#1086#1087#1077#1088#1072#1094#1080#1080
    end
    object Label5: TLabel
      Left = 3
      Top = 162
      Width = 183
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1054#1088#1075#1072#1085#1080#1079#1072#1094#1080#1103' '#1089#1086#1079#1076#1072#1090#1077#1083#1103' '#1086#1087#1077#1088#1072#1094#1080#1080
    end
    object Label6: TLabel
      Left = 3
      Top = 205
      Width = 183
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1044#1072#1090#1072' '#1089#1086#1079#1076#1072#1085#1080#1103' '#1089
    end
    object Label7: TLabel
      Left = 73
      Top = 121
      Width = 113
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1055#1077#1088#1080#1086#1076' '#1086#1087#1077#1088#1072#1094#1080#1080' '#1089
    end
    object Label8: TLabel
      Left = 288
      Top = 121
      Width = 89
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1087#1086
    end
    object Label9: TLabel
      Left = 3
      Top = 79
      Width = 183
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1059#1089#1083#1091#1075#1072
    end
    object Label10: TLabel
      Left = 124
      Top = 58
      Width = 65
      Height = 13
      Alignment = taRightJustify
      Caption = #1043#1088#1091#1087#1087#1072' '#1091#1089#1083#1091#1075
    end
    object Label12: TLabel
      Left = 288
      Top = 205
      Width = 89
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1087#1086
    end
    object Label11: TLabel
      Left = 3
      Top = 99
      Width = 183
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1055#1088#1080#1084#1077#1095#1072#1085#1080#1077
    end
    object Label13: TLabel
      Left = 3
      Top = 224
      Width = 183
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1057#1091#1084#1084#1072' '#1086#1087#1077#1088#1072#1094#1080#1080
    end
    object Label14: TLabel
      Left = 3
      Top = 142
      Width = 183
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1055#1088#1080#1085#1103#1090#1086' '#1072#1075#1077#1085#1090#1086#1084
    end
    object lcbManag: TDBLookupComboboxEh
      Left = 194
      Top = 13
      Width = 282
      Height = 19
      AlwaysShowBorder = True
      DropDownBox.Sizable = True
      DropDownBox.SpecRow.CellsText = '--'
      DropDownBox.SpecRow.Value = '-1'
      DropDownBox.SpecRow.Visible = True
      EditButtons = <>
      Flat = True
      KeyField = 'ID'
      ListField = 'SHORT_NAME'
      ListSource = dsc_Manag
      TabOrder = 0
      Visible = True
    end
    object lcbSupplier: TDBLookupComboboxEh
      Left = 194
      Top = 34
      Width = 282
      Height = 19
      AlwaysShowBorder = True
      DropDownBox.Sizable = True
      DropDownBox.SpecRow.CellsText = '--'
      DropDownBox.SpecRow.Value = '0'
      DropDownBox.SpecRow.Visible = True
      EditButtons = <>
      Flat = True
      KeyField = 'ID'
      ListField = 'SHORTNAME'
      ListSource = dsc_Supplier
      TabOrder = 1
      Visible = True
    end
    object lcbCreater: TDBLookupComboboxEh
      Left = 194
      Top = 181
      Width = 282
      Height = 19
      AlwaysShowBorder = True
      DropDownBox.Sizable = True
      DropDownBox.SpecRow.CellsText = '--'
      DropDownBox.SpecRow.Value = '0'
      DropDownBox.SpecRow.Visible = True
      EditButtons = <>
      Flat = True
      KeyField = 'ID'
      ListField = 'NAME'
      ListSource = dsc_User
      TabOrder = 8
      Visible = True
    end
    object dbdeCreateBdate: TDBDateTimeEditEh
      Left = 194
      Top = 202
      Width = 91
      Height = 19
      AlwaysShowBorder = True
      EditButtons = <>
      Flat = True
      Kind = dtkDateEh
      TabOrder = 9
      Visible = True
    end
    object dbdeBdate: TDBDateTimeEditEh
      Left = 194
      Top = 118
      Width = 91
      Height = 19
      AlwaysShowBorder = True
      EditButtons = <>
      Flat = True
      Kind = dtkDateEh
      TabOrder = 5
      Visible = True
    end
    object dbdeEdate: TDBDateTimeEditEh
      Left = 385
      Top = 118
      Width = 91
      Height = 19
      AlwaysShowBorder = True
      EditButtons = <>
      Flat = True
      Kind = dtkDateEh
      TabOrder = 6
      Visible = True
    end
    object lcbOrg: TDBLookupComboboxEh
      Left = 194
      Top = 160
      Width = 282
      Height = 19
      AlwaysShowBorder = True
      DropDownBox.Sizable = True
      DropDownBox.SpecRow.CellsText = '--'
      DropDownBox.SpecRow.Value = '0'
      DropDownBox.SpecRow.Visible = True
      EditButtons = <>
      Flat = True
      KeyField = 'ID'
      ListField = 'NAME'
      ListSource = dsc_UserOrg
      TabOrder = 7
      Visible = True
      OnExit = lcbOrgExit
    end
    object lcbService: TDBLookupComboboxEh
      Left = 194
      Top = 76
      Width = 282
      Height = 19
      AlwaysShowBorder = True
      DropDownBox.Sizable = True
      DropDownBox.SpecRow.CellsText = '--'
      DropDownBox.SpecRow.Value = '0'
      DropDownBox.SpecRow.Visible = True
      EditButtons = <>
      Flat = True
      KeyField = 'ID'
      ListField = 'NAME'
      ListSource = dsc_Service
      TabOrder = 3
      Visible = True
    end
    object lcbGroup: TDBLookupComboboxEh
      Left = 194
      Top = 55
      Width = 282
      Height = 19
      AlwaysShowBorder = True
      DropDownBox.Sizable = True
      DropDownBox.SpecRow.CellsText = '--'
      DropDownBox.SpecRow.Value = '0'
      DropDownBox.SpecRow.Visible = True
      EditButtons = <>
      Flat = True
      KeyField = 'ID'
      ListField = 'NAME'
      ListSource = dsc_Group
      TabOrder = 2
      Visible = True
      OnExit = lcbGroupExit
    end
    object dbdeCreateEdate: TDBDateTimeEditEh
      Left = 385
      Top = 202
      Width = 91
      Height = 19
      AlwaysShowBorder = True
      EditButtons = <>
      Flat = True
      Kind = dtkDateEh
      TabOrder = 10
      Visible = True
    end
    object dbeNote: TDBEditEh
      Left = 194
      Top = 97
      Width = 282
      Height = 19
      AlwaysShowBorder = True
      EditButtons = <>
      Flat = True
      TabOrder = 4
      Visible = True
      OnExit = dbeNoteExit
    end
    object dbneSumma: TDBNumberEditEh
      Left = 194
      Top = 223
      Width = 91
      Height = 19
      AlwaysShowBorder = True
      EditButtons = <>
      Flat = True
      TabOrder = 11
      Visible = True
    end
    object lcbAgent: TDBLookupComboboxEh
      Left = 194
      Top = 139
      Width = 282
      Height = 19
      AlwaysShowBorder = True
      DropDownBox.Sizable = True
      DropDownBox.SpecRow.CellsText = '--'
      DropDownBox.SpecRow.Value = '0'
      DropDownBox.SpecRow.Visible = True
      EditButtons = <>
      Flat = True
      KeyField = 'ID'
      ListField = 'AGENT_NAME'
      ListSource = dsc_Agents
      TabOrder = 12
      Visible = True
    end
  end
  inherited ActionList1: TActionList
    Left = 52
    Top = 48
    inherited aSave: TAction
      OnExecute = aSaveExecute
    end
    inherited aCancel: TAction
      OnExecute = aCancelExecute
    end
    object aClear: TAction
      Caption = #1054#1095#1080#1089#1090#1080#1090#1100
      Hint = #1054#1095#1080#1089#1090#1080#1090#1100' '#1074#1089#1077' '#1087#1086#1083#1103' '#1092#1080#1083#1100#1090#1088#1072
      OnExecute = aClearExecute
    end
  end
  object ds_Manag: TpFIBDataSet [5]
    SelectSQL.Strings = (
      'SELECT'
      '    CODE as id,'
      '    SHORT_NAME'
      'FROM'
      '    RMANAG v'
      'where exists(select 1 from dogovors d where d.manag_id = v.id)'
      'order by 2')
    Transaction = rstPays.trRefer
    Database = MAINDM.pMainDatabase
    Left = 204
    Top = 8
    object ds_ManagID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_ManagSHORT_NAME: TFIBStringField
      FieldName = 'SHORT_NAME'
      Size = 30
      EmptyStrToNull = True
    end
  end
  object dsc_Manag: TDataSource [6]
    DataSet = ds_Manag
    Left = 236
    Top = 8
  end
  object ds_Supplier: TpFIBDataSet [7]
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    SHORTNAME'
      'FROM'
      '    V_SUPPLIER v'
      
        'where exists(select 1 from dogovors d where d.supplier_id = v.id' +
        ')'
      'order by 2')
    Transaction = rstPays.trRefer
    Database = MAINDM.pMainDatabase
    Left = 268
    Top = 28
    object ds_SupplierID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_SupplierSHORTNAME: TFIBStringField
      FieldName = 'SHORTNAME'
      Size = 30
      EmptyStrToNull = True
    end
  end
  object dsc_Supplier: TDataSource [8]
    DataSet = ds_Supplier
    Left = 300
    Top = 28
  end
  object ds_Group: TpFIBDataSet [9]
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    SERVICES '
      'where group_id = 0'
      'order by 2')
    Transaction = rstPays.trRefer
    Database = MAINDM.pMainDatabase
    Left = 204
    Top = 48
    object ds_GroupID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_GroupNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object dsc_Group: TDataSource [10]
    DataSet = ds_Group
    Left = 236
    Top = 48
  end
  object ds_Service: TpFIBDataSet [11]
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    SERVICES '
      'where group_id = :pgroup_id '
      '  and group_id > 0'
      'order by 2')
    Transaction = rstPays.trRefer
    Database = MAINDM.pMainDatabase
    Left = 268
    Top = 72
    WaitEndMasterScroll = True
    dcForceOpen = True
    object ds_ServiceID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_ServiceNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object dsc_Service: TDataSource [12]
    DataSet = ds_Service
    Left = 300
    Top = 72
  end
  object ds_UserOrg: TpFIBDataSet [13]
    SelectSQL.Strings = (
      'select distinct u.id, u.name'
      'from userorg u, username un'
      'where un.orgcode = u.id'
      'order by 2')
    Transaction = rstPays.trRefer
    Database = MAINDM.pMainDatabase
    Left = 204
    Top = 168
    object ds_UserOrgID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_UserOrgNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
  end
  object dsc_UserOrg: TDataSource [14]
    DataSet = ds_UserOrg
    Left = 236
    Top = 168
  end
  object ds_User: TpFIBDataSet [15]
    SelectSQL.Strings = (
      
        'select un.id, coalesce(un.surname, '#39#39')||'#39' '#39'||coalesce(un.firstna' +
        'me, '#39#39')||'#39' '#39'||coalesce(un.lastname, '#39#39') as name'
      '  from username un'
      
        '  where (coalesce(:id, 0) = 0 or exists (select 1 from proc_user' +
        '_getorgcode(un.id) p where p.rcode = :id))'
      
        '    and exists (select 1 from pays p where p.createuserid = un.i' +
        'd)'
      'order by 2')
    Transaction = rstPays.trRefer
    Database = MAINDM.pMainDatabase
    Left = 272
    Top = 168
    WaitEndMasterScroll = True
    dcForceOpen = True
    object ds_UserID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_UserNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 102
      EmptyStrToNull = True
    end
  end
  object dsc_User: TDataSource [16]
    DataSet = ds_User
    Left = 304
    Top = 168
  end
  inherited PropStorage: TPropStorageEh
    Section = 'frmExtendRstPayFlt'
  end
  object ds_Agents: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    AGENT_NAME'
      'FROM'
      '    AGENTS '
      'where id > 0'
      'order by 2')
    Transaction = rstPays.trRefer
    Database = MAINDM.pMainDatabase
    Left = 276
    Top = 132
    WaitEndMasterScroll = True
    dcForceOpen = True
    object ds_AgentsID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_AgentsAGENT_NAME: TFIBStringField
      FieldName = 'AGENT_NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object dsc_Agents: TDataSource
    DataSet = ds_Agents
    Left = 308
    Top = 132
  end
end
